unit Chromium4D.Lib;

interface

  uses System.SysUtils, Chromium4D, Chromium4D.Core;

function IniTSyChromium(conf: string): ISyChromium;

procedure UnIniTSyChromium;

exports
  IniTSyChromium,
  UnIniTSyChromium;

var
  mkChromium: TSyChromium = nil;

implementation

function IniTSyChromium(conf: string): ISyChromium;
begin
  if mkChromium = nil then
    mkChromium := TSyChromiumProcess.Run(conf);
  Result := mkChromium;
end;


procedure UnIniTSyChromium;
begin

end;

initialization

finalization
  if Assigned(mkChromium) then
    FreeAndNil(mkChromium);
end.
